Top 10k strings from Poker (1983)(J.R. Hollingbery).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /

Back to the directory listing

   3 stt=stt+st
   2 st<b(pos,2
   2 ;"         ";
   2 *c;"  ";c$(1
   1 w++p#F##Np++q
   1 st>b(pos,2
   1 s(n,m)>s(a1,m)
   1 s(n,m)<s(a1,m)
   1 poker     N8
   1 poker     3
   1 poker     +
   1 pa,pb;"changes ";
   1 h$="                                        "
   1 a$="12345":
   1 a$(n);h$(h+1
   1 a$(n);h$(h)
   1 J.R.Hollingbery,1983
   1 CHANGE CARDS
   1 ;"you have wiped the table."
   1 ;"you are out of credit"
   1 ;"y/n ?";a$
   1 ;"well done"''
   1 ;"stake=`";st;"   ";
   1 ;"stake=`";ist;
   1 ;"press any key to start":
   1 ;"press any key for next hand.":
   1 ;"do you want to join "''
   1 ;"another game?";''
   1 ;"`";stt;"   "
   1 ;"Rules of The House";
   1 ;"REWIND";
   1 ;"Press y or n"
   1 ;"Press cont":
   1 ;"Press      ""B"" to place bet"'"           ""R"" to raise stakes"'"           ""F"" to fold hand"
   1 ;"Do you want to shuffle?";
   1 ;"1 2 3 4 5 "
   1 ;" ";j$(n+9
   1 ;" ";j$(n+8
   1 ;"         "
   1 ;"          "
   1 ;"                                                                ";
   1 ;"                                                                ":
   1 +n;j$(n+31
   1 +n;j$(n+30
   1 ));"`";b(pos,1
   1 ));"`";b(n,1
   1 '" The game is 5 card stud POKER."
   1 '" Stakes:- Min `5,Max `2000."
   1 '" If play passes twice round the  table without the stakes being  raised,betting will stop and    the winner decided."
   1 '" If identical hands are dealt    the suit of the highest card    will count.The order is 
   1 '" Hands in decending order:-      running flush - 4 - full house  (3+2) - flush - run - 3 - 2+2   - 2 - single"
   1 "Which cards do you want changed?";a$
   1 "));j$(m+1
   1 "));j$(m);
   1 "        ""c"" to raise and see"
   1                                         
   1                                     
   1